home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP01.ZIP / CU2B / CALLUP.PPX < prev    next >
Text File  |  1995-09-03  |  18KB  |  663 lines
  1. ;------------------------------------------------------------------------------
  2. ; PPLX 1.3O                              (C)1995 - Lone Runner / AEGiS CoRP'95 
  3. ;------------------------------------------------------------------------------
  4. ; PPE 3.1O (crypted) - Analysis OFF
  5. ;------------------------------------------------------------------------------
  6.  
  7.     Boolean  BOOLEAN001
  8.     Boolean  BOOLEAN002
  9.     Boolean  BOOLEAN003
  10.     Boolean  BOOLEAN004
  11.     Boolean  BOOLEAN005
  12.     Boolean  BOOLEAN006
  13.     Boolean  BOOLEAN007
  14.     Boolean  BOOLEAN008
  15.     Boolean  BOOLEAN009
  16.     Boolean  BOOLEAN010
  17.     Boolean  BOOLEAN011
  18.     String   STRING002
  19.     String   STRING003
  20.     String   STRING004
  21.     String   STRING005
  22.     String   STRING006
  23.     String   STRING007
  24.     String   STRING008
  25.     String   STRING009
  26.     String   STRING010
  27.     String   STRING011
  28.     String   STRING012
  29.     String   STRING013
  30.     String   STRING014
  31.     String   STRING015
  32.     String   STRING016
  33.     String   STRING017
  34.     String   STRING018
  35.     String   STRING019
  36.     String   STRING020
  37.     String   STRING021
  38.     String   STRING022
  39.     String   STRING023
  40.     String   STRING024
  41.     String   STRING025
  42.     String   STRING026
  43.     String   STRING027
  44.     String   STRING028
  45.     Integer  INTEGER002
  46.     Integer  INTEGER003
  47.     Integer  INTEGER004
  48.     Integer  INTEGER005
  49.     Date     DATE002
  50.  
  51. ;------------------------------------------------------------------------------
  52.  
  53.     BOOLEAN001 = 0
  54.     BOOLEAN002 = 0
  55.     BOOLEAN003 = 0
  56.     BOOLEAN004 = 0
  57.     BOOLEAN005 = 0
  58.     BOOLEAN006 = 0
  59.     BOOLEAN007 = 0
  60.     BOOLEAN008 = 0
  61.     BOOLEAN009 = 0
  62.     BOOLEAN010 = 0
  63.     BOOLEAN011 = 0
  64.     DATE002 = Date()
  65.     STRING002 = ""
  66.     STRING003 = ""
  67.     STRING004 = ""
  68.     STRING005 = ""
  69.     STRING006 = ""
  70.     STRING007 = ""
  71.     STRING008 = ""
  72.     STRING009 = ""
  73.     STRING010 = ""
  74.     STRING011 = ""
  75.     STRING012 = ""
  76.     STRING013 = ""
  77.     STRING014 = ""
  78.     STRING015 = ""
  79.     STRING016 = ""
  80.     STRING017 = ""
  81.     STRING018 = ""
  82.     STRING019 = ""
  83.     STRING020 = ""
  84.     STRING021 = ""
  85.     STRING022 = ""
  86.     STRING023 = ""
  87.     STRING024 = ""
  88.     STRING025 = ""
  89.     STRING026 = ""
  90.     STRING027 = ""
  91.     STRING028 = ""
  92.     INTEGER003 = 0
  93.     INTEGER004 = 0
  94.     INTEGER005 = 0
  95.     INTEGER002 = 0
  96.     FOpen 1, PpePath() + PPEName() + ".CFG", 0, 0
  97.     FGet 1, STRING002
  98.     FGet 1, STRING003
  99.     FGet 1, STRING004
  100.     FGet 1, STRING005
  101.     FGet 1, STRING006
  102.     FGet 1, STRING007
  103.     FGet 1, STRING008
  104.     FGet 1, BOOLEAN001
  105.     FGet 1, STRING009
  106.     FGet 1, STRING010
  107.     FGet 1, STRING011
  108.     FGet 1, BOOLEAN002
  109.     FGet 1, STRING012
  110.     FGet 1, STRING013
  111.     FGet 1, BOOLEAN003
  112.     FGet 1, STRING014
  113.     FClose 1
  114.     INTEGER002 = 1
  115. :LABEL001
  116.     If (!(((1 < 0) && (INTEGER002 >= 25)) || ((1 >= 0) && (INTEGER002 <= 25)))) Goto LABEL000
  117.     STRING015 = Mid(STRING002, INTEGER002, 1)
  118.     INTEGER003 = Asc(STRING015) + 3
  119.     INTEGER004 = INTEGER004 + INTEGER003
  120.     INTEGER002 = INTEGER002 + 1
  121.     Goto LABEL001
  122. :LABEL000
  123.     STRING016 = (((((((INTEGER004 * Len(Strip(STRING002, " "))) * 4) / 2) * 6) / 2) * 8) / 2) * 10
  124.     Gosub LABEL002
  125.     GetUser
  126.     If (!(U_SEC > STRING004)) Goto LABEL003
  127.     PrintLn 
  128.     DispFile PpePath() + "2HIGH", 2 + 1 + 4
  129.     PrintLn 
  130.     Wait
  131.     Cls
  132.     End
  133. :LABEL003
  134.     PrintLn 
  135.     DispFile PpePath() + "WELC", 2 + 1 + 4
  136.     PrintLn 
  137.     Wait
  138.     Gosub LABEL002
  139.     PrintLn 
  140.     DispFile PpePath() + "SEL", 2 + 1 + 4
  141.     If (!BOOLEAN002) Goto LABEL004
  142.     PrintLn 
  143.     PrintLn "@X0CHit <enter> to abort callback."
  144.     InputStr "@X0FCall Your (V)oice " + U_HVPHONE + " (D)ata " + U_BDPHONE + " or (E)nter number ", STRING017, 15, 1, "DEV", 8 + 32 + 2 + 4
  145. :LABEL004
  146.     If (BOOLEAN002) Goto LABEL005
  147.     PrintLn 
  148.     PrintLn "@X0CHit <enter> to abort callback."
  149.     InputStr "@X0FCall Your (V)oice " + U_HVPHONE + " (D)ata " + U_BDPHONE + " Line ", STRING017, 15, 1, "DV", 8 + 32 + 2 + 4
  150. :LABEL005
  151.     If (!(STRING017 == "")) Goto LABEL006
  152.     Gosub LABEL002
  153.     PrintLn 
  154.     DispFile PpePath() + "ABORT", 2 + 1 + 4
  155.     PrintLn 
  156.     Wait
  157.     Cls
  158.     End
  159. :LABEL006
  160.     If ((STRING017 == "D")) Gosub LABEL007
  161.     If ((STRING017 == "V")) Gosub LABEL007
  162.     If ((STRING017 == "E")) Gosub LABEL008
  163.     Gosub LABEL009
  164.     If (BOOLEAN004) Goto LABEL010
  165.     Goto LABEL011
  166. :LABEL010
  167.     Gosub LABEL008
  168. :LABEL011
  169.     Gosub LABEL012
  170.     Gosub LABEL013
  171.     FOpen 1, PpePath() + "LOC_EXC.DAT", 0, 3
  172.     SearchInit STRING019 + "-" + STRING020, 1
  173. :LABEL015
  174.     If (!(!Ferr(1) && !BOOLEAN007)) Goto LABEL014
  175.     FGet 1, STRING023
  176.     SearchFind STRING023, BOOLEAN007
  177.     Goto LABEL015
  178. :LABEL014
  179.     SearchStop
  180.     FClose 1
  181.     If (!BOOLEAN007) Goto LABEL016
  182.     Goto LABEL017
  183. :LABEL016
  184.     If (BOOLEAN008) Goto LABEL018
  185.     FOpen 1, PpePath() + "LC_EX_1.DAT", 0, 3
  186.     SearchInit STRING019 + "-" + STRING020, 1
  187. :LABEL020
  188.     If (!(!Ferr(1) && !BOOLEAN008)) Goto LABEL019
  189.     FGet 1, STRING023
  190.     SearchFind STRING023, BOOLEAN008
  191.     Goto LABEL020
  192. :LABEL019
  193.     SearchStop
  194.     FClose 1
  195. :LABEL018
  196.     If (!BOOLEAN008) Goto LABEL021
  197.     Goto LABEL017
  198. :LABEL021
  199.     If (!BOOLEAN001) Goto LABEL022
  200.     FOpen 1, PpePath() + "AREACODE.DAT", 0, 3
  201.     SearchInit STRING019, 1
  202. :LABEL024
  203.     If (!(!Ferr(1) && !BOOLEAN009)) Goto LABEL023
  204.     FGet 1, STRING024
  205.     SearchFind STRING024, BOOLEAN009
  206.     Goto LABEL024
  207. :LABEL023
  208.     SearchStop
  209.     FClose 1
  210. :LABEL022
  211.     If (BOOLEAN009) Goto LABEL025
  212.     Gosub LABEL002
  213.     PrintLn 
  214.     DispFile PpePath() + "ACLDN", 2 + 1 + 4
  215.     PrintLn 
  216.     Wait
  217.     Cls
  218.     End
  219. :LABEL025
  220.     If (!(Mid(STRING010, 1, 5) < Mid(STRING011, 1, 5))) Goto LABEL026
  221.     If (!(((Dow(Date()) <> 6) && BOOLEAN009) && ((Time() / 36 < Mid(Strip(STRING010, ":"), 1, 5)) || (Time() / 36 >= Mid(Strip(STRING011, ":"), 1, 5))))) Goto LABEL026
  222.     Gosub LABEL002
  223.     PrintLn 
  224.     DispFile PpePath() + "LDNO", 2 + 1 + 4
  225.     PrintLn 
  226.     Wait
  227.     Cls
  228.     End
  229. :LABEL026
  230.     If (!(Mid(STRING010, 7, 5) < Mid(STRING011, 7, 5))) Goto LABEL027
  231.     If (!(((Dow(Date()) == 7) && BOOLEAN009) && ((Time() / 36 < Mid(Strip(STRING010, ":"), 7, 5)) || (Time() / 36 >= Mid(Strip(STRING011, ":"), 7, 5))))) Goto LABEL027
  232.     Gosub LABEL002
  233.     PrintLn 
  234.     DispFile PpePath() + "LDNO", 2 + 1 + 4
  235.     PrintLn 
  236.     Wait
  237.     Cls
  238.     End
  239. :LABEL027
  240.     If (!(Mid(STRING010, 1, 5) > Mid(STRING011, 1, 5))) Goto LABEL028
  241.     If (!(((Dow(Date()) <> 6) && BOOLEAN009) && ((Time() / 36 < Mid(Strip(STRING010, ":"), 1, 5)) && (Time() / 36 >= Mid(Strip(STRING011, ":"), 1, 5))))) Goto LABEL028
  242.     Gosub LABEL002
  243.     PrintLn 
  244.     DispFile PpePath() + "LDNO", 2 + 1 + 4
  245.     PrintLn 
  246.     Wait
  247.     Cls
  248.     End
  249. :LABEL028
  250.     If (!(Mid(STRING010, 7, 5) > Mid(STRING011, 7, 5))) Goto LABEL029
  251.     If (!(((Dow(Date()) == 7) && BOOLEAN009) && ((Time() / 36 < Mid(Strip(STRING010, ":"), 7, 5)) && (Time() / 36 >= Mid(Strip(STRING011, ":"), 7, 5))))) Goto LABEL029
  252.     Gosub LABEL002
  253.     PrintLn 
  254.     DispFile PpePath() + "LDNO", 2 + 1 + 4
  255.     PrintLn 
  256.     Wait
  257.     Cls
  258.     End
  259. :LABEL029
  260.     If (!BOOLEAN009) Goto LABEL030
  261.     Goto LABEL017
  262. :LABEL030
  263.     If (!((!BOOLEAN007 && !BOOLEAN008) && !BOOLEAN009)) Goto LABEL017
  264.     Gosub LABEL002
  265.     PrintLn 
  266.     DispFile PpePath() + "ERROR", 2 + 1 + 4
  267.     PrintLn 
  268.     Wait
  269.     Cls
  270.     End
  271. :LABEL017
  272.     Gosub LABEL002
  273.     PrintLn 
  274.     DispFile PpePath() + "CALL", 2 + 1 + 4
  275.     PrintLn 
  276.     Wait
  277.     If (!BOOLEAN007) Goto LABEL031
  278.     PrintLn "@X0F" + STRING002 + " will make (@X0C" + STRING008 + "@X0F) attempt(s) to connect to you."
  279.     PrintLn 
  280.     PrintLn "@X0FEach attempt will last for (@X0C" + STRING012 + "@X0F) seconds."
  281.     PrintLn 
  282.     Wait
  283.     STRING026 = STRING008
  284.     STRING027 = 1
  285. :LABEL031
  286.     If (!(BOOLEAN009 || BOOLEAN008)) Goto LABEL032
  287.     PrintLn "@X0F" + STRING002 + " will make (@X0C" + STRING009 + "@X0F) attempt(s) to connect to you."
  288.     PrintLn 
  289.     PrintLn "@X0FEach attempt will last for (@X0C" + STRING012 + "@X0F) seconds."
  290.     PrintLn 
  291.     Wait
  292.     STRING026 = STRING009
  293.     STRING027 = 1
  294. :LABEL032
  295.     If (!OnLocal()) Goto LABEL033
  296.     BOOLEAN011 = 1
  297.     PrintLn 
  298.     PrintLn "                <<<*** BEGINNING LOCAL MODE SIMULATON ***>>>"
  299.     PrintLn 
  300.     Wait
  301.     Goto LABEL034
  302. :LABEL033
  303.     If (!((STRING026 >= STRING027) && !BOOLEAN010)) Goto LABEL035
  304.     CdChkOff
  305.     KbdChkOff
  306.     DtrOff
  307.     Delay 180
  308.     DtrOn
  309.     STRING026 = STRING026 - 1
  310.     PrintLn "@X0CUser has " + STRING026 + " attempts left."
  311.     PrintLn "@X0CInitializing modem...."
  312.     SendModem "AT" + STRING013
  313.     SendModem Chr(13)
  314.     Delay 180
  315.     PrintLn "@X0CDialing and waiting...."
  316.     SendModem "ATDT"
  317.     If (!BOOLEAN007) Goto LABEL036
  318.     SendModem STRING020 + STRING021
  319.     Goto LABEL037
  320. :LABEL036
  321.     If (!BOOLEAN008) Goto LABEL038
  322.     SendModem "1" + STRING020 + STRING021
  323.     Goto LABEL037
  324. :LABEL038
  325.     If (!BOOLEAN009) Goto LABEL037
  326.     SendModem "1" + STRING019 + STRING020 + STRING021
  327.     Goto LABEL037
  328. :LABEL037
  329.     SendModem Chr(13)
  330.     WaitFor "CONNECT", BOOLEAN010, STRING012
  331.     Goto LABEL033
  332. :LABEL035
  333.     If (!BOOLEAN010) Goto LABEL039
  334.     CdChkOn
  335.     KbdChkOn
  336. :LABEL034
  337.     STRING026 = 1
  338. :LABEL042
  339.     If (!((STRING026 <= STRING006) && (STRING025 <> U_PWD))) Goto LABEL040
  340.     KbdFlush
  341.     MdmFlush
  342.     Cls
  343.     PrintLn 
  344.     PrintLn 
  345.     PrintLn 
  346.     Gosub LABEL002
  347.     DispFile PpePath() + "PWORD", 2 + 1 + 4
  348.     PrintLn 
  349.     InputStr "@X0CEnter Password:", STRING025, 15, 12, Mask_Pwd(), 8 + 1 + 32 + 2
  350.     If (!(STRING025 <> U_PWD)) Goto LABEL041
  351.     PrintLn 
  352.     DispFile PpePath() + "WRONG", 2 + 1 + 4
  353.     PrintLn 
  354.     STRING026 = STRING026 + 1
  355.     STRING025 = ""
  356.     Wait
  357. :LABEL041
  358.     Goto LABEL042
  359. :LABEL040
  360.     If (!(STRING025 <> U_PWD)) Goto LABEL043
  361.     Gosub LABEL002
  362.     PrintLn 
  363.     DispFile PpePath() + "OUT", 2 + 1 + 4
  364.     PrintLn 
  365.     Delay 180
  366.     Hangup
  367. :LABEL043
  368.     If (!(STRING025 == U_PWD)) Goto LABEL044
  369.     U_SEC = STRING005
  370.     U_EXPDATE = DATE002 + STRING007
  371.     If (!BOOLEAN003) Goto LABEL045
  372.     STRING028 = "[" + STRING019 + "-" + STRING020 + "-" + STRING021 + "] " + String(Date()) + " " + Mid(String(Time()), 1, 5)
  373.     U_CMNT2 = STRING028
  374. :LABEL045
  375.     Gosub LABEL002
  376.     DispFile PpePath() + "UP", 2 + 1 + 4
  377.     PrintLn 
  378.     PutUser
  379.     FAppend 1, PpePath() + "VERIFIED.DAT", 1, 3
  380.     FPutLn 1, STRING019 + "-" + STRING020 + "-" + STRING021 + " :" + U_Name()
  381.     FClose 1
  382. :LABEL044
  383.     If (!BOOLEAN011) Goto LABEL046
  384.     End
  385. :LABEL046
  386.     If (!(BOOLEAN009 || BOOLEAN008)) Goto LABEL047
  387.     DispFile PpePath() + "LDOFF", 2 + 1 + 4
  388.     PrintLn 
  389.     Delay 180
  390.     Hangup
  391. :LABEL047
  392.     If (!BOOLEAN007) Goto LABEL039
  393.     Wait
  394. :LABEL039
  395.     Cls
  396.     End
  397. :LABEL007
  398.     If (!(STRING017 == "D")) Goto LABEL048
  399.     STRING022 = StripStr(U_BDPHONE, "(")
  400. :LABEL048
  401.     If (!(STRING017 == "V")) Goto LABEL049
  402.     STRING022 = StripStr(U_HVPHONE, "(")
  403. :LABEL049
  404.     STRING022 = StripStr(STRING022, ")")
  405.     STRING022 = StripStr(STRING022, "-")
  406.     STRING022 = StripStr(STRING022, " ")
  407.     STRING019 = Mid(STRING022, 1, 3)
  408.     STRING020 = Mid(STRING022, 4, 3)
  409.     STRING021 = Mid(STRING022, 7, 4)
  410.     Return
  411. :LABEL009
  412.     If (!(Len(STRING022) <> 10)) Goto LABEL050
  413.     PrintLn 
  414.     PrintLn "@X0CPhone Number Must Be In (xxx)xxx-xxxx of xxx-xxx-xxxx Format."
  415.     PrintLn "@X0CPlease enter your phone number with full area code."
  416.     PrintLn 
  417.     STRING017 = "E"
  418.     BOOLEAN004 = 1
  419. :LABEL050
  420.     Return
  421. :LABEL002
  422.     Cls
  423.     PrintLn 
  424.     PrintLn "@X0F              Welcome to CallUp v2.ß -- User Callback Verifier."
  425.     PrintLn "@X0F                     Copyright (C) 1995 James Nerlinger"
  426.     PrintLn 
  427.     If (!(STRING016 == STRING003)) Goto LABEL051
  428.     INTEGER005 = (50 - Len(STRING002)) / 2
  429.     Forward INTEGER005
  430.     Print "@X0FCallUp v2.ß Is Registered To " + STRING002
  431.     PrintLn 
  432. :LABEL051
  433.     If (!(STRING016 <> STRING003)) Goto LABEL052
  434.     Forward INTEGER005
  435.     Print "@X0FCallUp v2.ß Is Registered To " + STRING002
  436. :LABEL052
  437.     Return
  438. :LABEL008
  439.     STRING019 = ""
  440.     STRING020 = ""
  441.     STRING021 = ""
  442. :LABEL064
  443.     If (!(STRING018 <> "C")) Goto LABEL053
  444.     STRING018 = ""
  445. :LABEL056
  446.     If (!(Len(StripStr(STRING019, " ")) < 3)) Goto LABEL054
  447.     InputStr "@X0FYour Area Code (enter to abort): ", STRING019, 15, 3, Mask_Num(), 2 + 32 + 4
  448.     If (!(STRING019 == "")) Goto LABEL055
  449.     Gosub LABEL002
  450.     PrintLn 
  451.     DispFile PpePath() + "ABORT", 2 + 1 + 4
  452.     PrintLn 
  453.     Wait
  454.     Cls
  455.     End
  456. :LABEL055
  457.     Goto LABEL056
  458. :LABEL054
  459.     If (!(Len(StripStr(STRING020, " ")) < 3)) Goto LABEL057
  460.     InputStr "@X0FYour Prefix (enter to abort): ", STRING020, 15, 3, Mask_Num(), 2 + 32 + 4
  461.     If (!(STRING020 == "")) Goto LABEL058
  462.     Gosub LABEL002
  463.     PrintLn 
  464.     DispFile PpePath() + "ABORT", 2 + 1 + 4
  465.     PrintLn 
  466.     Wait
  467.     Cls
  468.     End
  469. :LABEL058
  470.     Goto LABEL054
  471. :LABEL057
  472.     If (!(Len(StripStr(STRING021, " ")) < 4)) Goto LABEL059
  473.     InputStr "@X0FYour Suffix (enter to abort): ", STRING021, 15, 4, Mask_Num(), 2 + 32 + 4
  474.     If (!(STRING021 == "")) Goto LABEL060
  475.     Gosub LABEL002
  476.     PrintLn 
  477.     DispFile PpePath() + "ABORT", 2 + 1 + 4
  478.     PrintLn 
  479.     Wait
  480.     Cls
  481.     End
  482. :LABEL060
  483.     Goto LABEL057
  484. :LABEL059
  485.     STRING022 = STRING019 + STRING020 + STRING021
  486. :LABEL063
  487.     If (!(STRING018 == "")) Goto LABEL061
  488.     InputStr "@X0FYou Entered @X0C" + STRING019 + "-" + STRING020 + "-" + STRING021 + "@X0F (C)ontinue or (R)e-enter ", STRING018, 15, 1, "CR", 8 + 2 + 32 + 4
  489.     If (!(STRING018 == "")) Goto LABEL062
  490.     Gosub LABEL002
  491.     PrintLn 
  492.     DispFile PpePath() + "ABORT", 2 + 1 + 4
  493.     PrintLn 
  494.     Wait
  495.     Cls
  496.     End
  497. :LABEL062
  498.     Goto LABEL063
  499. :LABEL061
  500.     Goto LABEL064
  501. :LABEL053
  502.     Return
  503. :LABEL012
  504.     FOpen 1, PpePath() + "VERIFIED.DAT", 0, 3
  505.     SearchInit STRING019 + "-" + STRING020 + "-" + STRING021, 0
  506. :LABEL066
  507.     If (!(!Ferr(1) && !BOOLEAN005)) Goto LABEL065
  508.     FGet 1, STRING024
  509.     STRING024 = Mid(STRING024, 1, 12)
  510.     SearchFind STRING024, BOOLEAN005
  511.     Goto LABEL066
  512. :LABEL065
  513.     SearchStop
  514.     FClose 1
  515.     If (!BOOLEAN005) Goto LABEL067
  516.     Gosub LABEL002
  517.     PrintLn 
  518.     DispFile PpePath() + "ALRDY", 2 + 1 + 4
  519.     PrintLn 
  520.     Wait
  521.     Cls
  522.     End
  523. :LABEL067
  524.     Return
  525. :LABEL013
  526.     FOpen 1, PpePath() + "TRASH.DAT", 0, 3
  527.     SearchInit STRING019 + "-" + STRING020 + "-" + STRING021, 0
  528. :LABEL073
  529.     If (!(!Ferr(1) && !BOOLEAN006)) Goto LABEL068
  530.     FGet 1, STRING024
  531.     STRING024 = Mid(STRING024, 1, 12)
  532.     If (!(Mid(STRING024, 1, 12) == STRING019 + "-???-????")) Goto LABEL069
  533.     Gosub LABEL002
  534.     PrintLn 
  535.     DispFile PpePath() + "ACNO", 2 + 1 + 4
  536.     PrintLn 
  537.     Wait
  538.     Cls
  539.     End
  540. :LABEL069
  541.     If (!(Mid(STRING024, 1, 12) == "???-" + STRING020 + "-????")) Goto LABEL070
  542.     Gosub LABEL002
  543.     PrintLn 
  544.     DispFile PpePath() + "PRENO", 2 + 1 + 4
  545.     PrintLn 
  546.     Wait
  547.     Cls
  548.     End
  549. :LABEL070
  550.     If (!(Mid(STRING024, 1, 12) == "???-???-" + STRING021)) Goto LABEL071
  551.     Gosub LABEL002
  552.     PrintLn 
  553.     DispFile PpePath() + "SUFNO", 2 + 1 + 4
  554.     PrintLn 
  555.     Wait
  556.     Cls
  557.     End
  558. :LABEL071
  559.     If (!(Mid(STRING024, 1, 12) == STRING019 + "-" + STRING020 + "-" + STRING021)) Goto LABEL072
  560.     Gosub LABEL002
  561.     PrintLn 
  562.     DispFile PpePath() + "TRASH", 2 + 1 + 4
  563.     PrintLn 
  564.     Wait
  565.     Cls
  566.     End
  567. :LABEL072
  568.     SearchFind STRING024, BOOLEAN006
  569.     Goto LABEL073
  570. :LABEL068
  571.     SearchStop
  572.     FClose 1
  573.     Return
  574.  
  575. ;------------------------------------------------------------------------------
  576. ;
  577. ; Statements used :
  578. ;
  579. ;    19      End
  580. ;    20      Cls
  581. ;    24      Wait
  582. ;    82      Goto 
  583. ;    80      Let 
  584. ;    1       Print 
  585. ;    77      PrintLn 
  586. ;    64      If 
  587. ;    25      DispFile 
  588. ;    6       FOpen 
  589. ;    1       FAppend 
  590. ;    7       FClose 
  591. ;    21      FGet 
  592. ;    1       FPutLn 
  593. ;    2       Hangup
  594. ;    1       GetUser
  595. ;    1       PutUser
  596. ;    7       InputStr 
  597. ;    29      Gosub 
  598. ;    6       Return
  599. ;    1       DtrOn
  600. ;    1       DtrOff
  601. ;    1       CdChkOn
  602. ;    1       CdChkOff
  603. ;    4       Delay 
  604. ;    7       SendModem 
  605. ;    1       WaitFor 
  606. ;    1       KbdChkOn
  607. ;    1       KbdChkOff
  608. ;    1       Forward 
  609. ;    1       KbdFlush
  610. ;    1       MdmFlush
  611. ;    5       SearchInit 
  612. ;    5       SearchFind 
  613. ;    5       SearchStop
  614. ;
  615. ;
  616. ; Functions used :
  617. ;
  618. ;    5       *
  619. ;    12      /
  620. ;    179     +
  621. ;    2       -
  622. ;    19      ==
  623. ;    8       <>
  624. ;    10      <
  625. ;    2       <=
  626. ;    3       >
  627. ;    7       >=
  628. ;    75      !
  629. ;    21      &&
  630. ;    5       ||
  631. ;    6       Len(
  632. ;    27      Mid()
  633. ;    5       Ferr()
  634. ;    2       Chr()
  635. ;    1       Asc()
  636. ;    6       Date()
  637. ;    9       Time()
  638. ;    1       U_Name()
  639. ;    4       Dow()
  640. ;    9       Strip()
  641. ;    2       String()
  642. ;    1       Mask_Pwd()
  643. ;    3       Mask_Num()
  644. ;    32      PpePath()
  645. ;    1       OnLocal()
  646. ;    1       PPEName()
  647. ;    8       StripStr()
  648. ;
  649. ;-----------------------------------------------------------------------------;
  650. ; (C)1995 AEGiS CoRP       - Main Code by Lone Runner -      Parts by The doC ;
  651. ;-----------------------------------------------------------------------------;
  652. ;        ___________      _______________________        _____________        ;
  653. ;[=======\          \====/          /           /_____  /            /=======];
  654. ; ::::::::\  ______  \::/  \_____  /  _______  /______)/  \_______  /:::::::: ;
  655. ; ::kL!:::_\/    _/   \/   ___)__\/   \      \/        \_________ \/::::::::: ;
  656. ; ::::::::\     __     \_  \      \_   \_     \_        \_      /  \_:::::::: ;
  657. ;[=========\_____/______/__________/___________/_________/__________/========];
  658. ;                                                                             ;
  659. ;                      C          O          R          P                     ;
  660. ;-----------------------------------------------------------------------------;
  661. ;                        Dedicated to pure anarchists all around the world... ;
  662. ;-----------------------------------------------------------------------------;
  663.